home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Dr. Windows 3
/
dr win3.zip
/
dr win3
/
VISUALBA
/
TOLL20.ZIP
/
TOOLDEMO.BAS
< prev
next >
Wrap
BASIC Source File
|
1993-01-30
|
2KB
|
50 lines
' Catch undeclared variables
Option Explicit
' These constants come from the
' Microsoft Visual Design Guide
Global Const BUTTONGAP = 6
Global Const BARHEIGHT = 28
' Minimum size
Global MINWIDTH!, MINHEIGHT!
' File name for open, save
Global FileName$
' Pathname of help file
Global HelpPath$
' Constants
' ToolButtons
Global Const TB_FILENEW = 0
Global Const TB_FILEOPEN = 1
Global Const TB_FILESAVE = 2
Global Const TB_FILEPRINT = 3
Global Const TB_EDITCUT = 4
Global Const TB_EDITCOPY = 5
Global Const TB_EDITPASTE = 6
Global Const TB_FONTBOLD = 7
Global Const TB_FONTITALIC = 8
Global Const TB_FONTUNDERLINE = 9
Global Const TB_HELPCONTEXT = 10
Global Const TB_HELPCONTENTS = 11
Global Const TB_MAX = 11
' Windows Help stuff
Declare Sub WinHelp Lib "user" (ByVal hwnd%, ByVal hlHelpFile$, ByVal wCommand%, ByVal dwData&)
Declare Sub WinHelpString Lib "user" Alias "WinHelp" (ByVal hwnd%, ByVal hlHelpFile$, ByVal wCommand%, ByVal lpstrData$)
Global Const HELP_CONTEXT = &H1
Global Const HELP_QUIT = &H2
Global Const HELP_CONTENTS = &H3
Global Const HELP_HELPONHELP = &H4
Global Const HELP_KEY = &H101
Global Const HELP_PARTIALKEY = &H105
' Other useful API functions
Declare Function GetModuleFileName% Lib "kernel" (ByVal hModule%, ByVal lpFilename$, ByVal nSize%)
Declare Function GetModuleHandle% Lib "kernel" (ByVal lpModuleName$)